library(ggplot2)
library(plotly)
Registered S3 method overwritten by 'data.table':
method from
print.data.table
Registered S3 method overwritten by 'htmlwidgets':
method from
print.htmlwidget tools:rstudio
Attaching package: ‘plotly’
The following object is masked from ‘package:ggplot2’:
last_plot
The following object is masked from ‘package:stats’:
filter
The following object is masked from ‘package:graphics’:
layout
library(dplyr)
Attaching package: ‘dplyr’
The following objects are masked from ‘package:stats’:
filter, lag
The following objects are masked from ‘package:base’:
intersect, setdiff, setequal, union
library(readr)
library(lubridate)
Attaching package: ‘lubridate’
The following objects are masked from ‘package:base’:
date, intersect, setdiff, union
library(stringr)
Análisis temporal
df <- read.csv("./BDD_DICIEMBRE_2022.csv")
df$FECHA <- dmy(df$FECHA)
fechas <- data.frame(table(df$FECHA))
colnames(fechas) <- c("Fecha","Freq")
fechas$Fecha <- ymd(fechas$Fecha)
head(fechas)
#class(fechas$Fecha)
library(highcharter)
highchart(type = "stock") %>%
hc_add_series(
data = fechas,
type = "line",
hcaes(x=Fecha,
y=Freq,
group=year(Fecha)))
df %>%
hchart(
type = column,)
sin_mes_fer <- data.frame(table(df$MES_1, df$FERIADO))
colnames(sin_mes_fer) <- c("Mes", "Feriado", "Freq")
hchart(sin_mes_fer,
type = "column",
hcaes(x=Mes,y=Freq,group=Feriado),
stacking = "normal")
mes <- ggplot(data = df, aes(y=MES_1, fill=FERIADO))+
geom_bar(
position = "stack"
)
font = list(
family = "DM S",
size = 15,
color = "white"
)
label = list(
bgcolor = "#232F34",
bordercolor = "transparent",
font = font
)
ggplotly(mes, tooltip=c("x")) %>%
style(hoverlabel = label) %>%
layout(font = font)
LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQoNCmBgYHtyfQ0KbGlicmFyeShnZ3Bsb3QyKQ0KbGlicmFyeShwbG90bHkpDQpsaWJyYXJ5KGRwbHlyKQ0KbGlicmFyeShyZWFkcikNCmxpYnJhcnkobHVicmlkYXRlKQ0KbGlicmFyeShzdHJpbmdyKQ0KYGBgDQoNCg0KIyMgQW7DoWxpc2lzIHRlbXBvcmFsDQoNCmBgYHtyfQ0KZGYgPC0gcmVhZC5jc3YoIi4vQkREX0RJQ0lFTUJSRV8yMDIyLmNzdiIpDQpkZiRGRUNIQSA8LSBkbXkoZGYkRkVDSEEpDQpgYGANCmBgYHtyfQ0KZmVjaGFzIDwtIGRhdGEuZnJhbWUodGFibGUoZGYkRkVDSEEpKQ0KY29sbmFtZXMoZmVjaGFzKSA8LSBjKCJGZWNoYSIsIkZyZXEiKQ0KZmVjaGFzJEZlY2hhIDwtIHltZChmZWNoYXMkRmVjaGEpDQpoZWFkKGZlY2hhcykNCiNjbGFzcyhmZWNoYXMkRmVjaGEpDQpgYGANCmBgYHtyfQ0KbGlicmFyeShoaWdoY2hhcnRlcikNCmBgYA0KDQoNCmBgYHtyfQ0KaGlnaGNoYXJ0KHR5cGUgPSAic3RvY2siKSAlPiUNCiAgaGNfYWRkX3NlcmllcygNCiAgICBkYXRhID0gZmVjaGFzLCANCiAgICB0eXBlID0gImxpbmUiLA0KICAgIGhjYWVzKHg9RmVjaGEsDQogICAgICAgICAgeT1GcmVxLA0KICAgICAgICAgIGdyb3VwPXllYXIoRmVjaGEpKSkNCmBgYA0KDQpgYGB7cn0NCmRmICU+JQ0KaGNoYXJ0KCANCiAgICAgICB0eXBlID0gY29sdW1uLCkNCmBgYA0KYGBge3J9DQpzaW5fbWVzX2ZlciA8LSBkYXRhLmZyYW1lKHRhYmxlKGRmJE1FU18xLCBkZiRGRVJJQURPKSkNCmNvbG5hbWVzKHNpbl9tZXNfZmVyKSA8LSBjKCJNZXMiLCAiRmVyaWFkbyIsICJGcmVxIikNCg0KaGNoYXJ0KHNpbl9tZXNfZmVyLCANCiAgICAgICB0eXBlID0gImNvbHVtbiIsDQogICAgICAgaGNhZXMoeD1NZXMseT1GcmVxLGdyb3VwPUZlcmlhZG8pLA0KICAgICAgIHN0YWNraW5nID0gIm5vcm1hbCIpDQpgYGANCg0KYGBge3J9DQptZXMgPC0gZ2dwbG90KGRhdGEgPSBkZiwgYWVzKHk9TUVTXzEsIGZpbGw9RkVSSUFETykpKw0KICBnZW9tX2JhcigNCiAgICBwb3NpdGlvbiA9ICJzdGFjayINCiAgKQ0KYGBgDQoNCmBgYHtyfQ0KZm9udCA9IGxpc3QoDQogIGZhbWlseSA9ICJETSBTIiwNCiAgc2l6ZSA9IDE1LA0KICBjb2xvciA9ICJ3aGl0ZSINCikNCg0KbGFiZWwgPSBsaXN0KA0KICBiZ2NvbG9yID0gIiMyMzJGMzQiLA0KICBib3JkZXJjb2xvciA9ICJ0cmFuc3BhcmVudCIsDQogIGZvbnQgPSBmb250DQopDQoNCmdncGxvdGx5KG1lcywgdG9vbHRpcD1jKCJ4IikpICU+JQ0KICBzdHlsZShob3ZlcmxhYmVsID0gbGFiZWwpICU+JQ0KICBsYXlvdXQoZm9udCA9IGZvbnQpDQpgYGANCg0KDQo=